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PREFACE 

This manual and p-file disk-has been a pet project of mine for 
.over three,years, and Is finally finished, and released, to 
share with a 11 who love to program "and modify the" C-Net program. 
1 hop e itma^s things easier for all to do 'this! I thank' all " 

who^helped with suggestions and information, especially Eric I - 

Bratton (THE TREE), for his extensive research into the 
non-documented source code for. the C-Net ML. Many thanks also to 
Professor, Ray Kelm, for his work. 


Don Gladden 
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C-NET, PROGRAMMING V BASIC 


C-NET programming;basics 


This chapter .will detail the actual structure 
then-how to incorporate variables and system 
effectively. . 


and 

one 


2.2 P-FILE STRUCTURE 


C-Net 64 p-files must begin at BASic'line .r.umber ' 1, and may 
line numbers in any order whatsoever after that, up to line 
;.i : v .,.7 number 999. The^last line of a pfile must .NOT contain any 1 
,. v number preferences/', such as a "goto" or ’’gbsub."The ^best ‘ wa 

line .#993 of ,ariy-:--pfi-ie is'.’simbly ,a^ l *rem n '. >r r ' » . , j 

... up-tp r 49:,blpcksvlongtlh.:.yersibh5Si:2.0, but n 
<• • ' ' - longer.- I Pyoucross;the : 49 -block;barrier ,' : :I twill'ilb^oine!" 

grange things! However, with^spm^>tricky.-prQgrammiaigvi^ibgl, 
. 'possible r :to use-more- than one module' to create ;a .very large 
v ; • /.-■ P.r ogram ^to. .run^as.p-f I les. ;;irwo. multi>tisertgames. included on 

• n accompaning p-filc v disk‘include .EMPIRE and DRAGONWORhD. hot 

* * which multi’ file: T ga'mes;-bhat 'have’ been cfuricheddownito 

| piffi igfS || I ’—'49 blocks each without'losing any/f eaturesTKis~49 'block s 
"* ^xesetved 11 ; by-the mam program, so filling '-up memory her> 
■ really does, not make too-much difference, The-memory; is ‘aln 

i \ t alloted, though you.will want to still follow good program: 

structure.to make the p-file run efficiently. . . • 


When your p-file is finished 
;the main program, or another 
program, you. would use -a ;."GO' 
prompt level. Running a pfile from another p£il 

set- the-;p:-/f ile c up as -a subroutine ’ ‘ 

"GOTO", statement to end it 

•d liferent ^butln^Sln.tb 

the second. There is 
to allowfor•this 


ji, you must return control .to 
If you'return to the main' 
•r : to ; get' back to the "Main; " 
e .requires.:you to 
,-.using "return" rather than a" : 
_ r T.h i s r equires, ; th at; ,you u se a -: : ; Ji■ f 1 
e first (original) p-file, to load and run 
such a routine buiIt into the main program 
(See chapter on system subroutines). 


One very important thing to do in 
sure you are. safeguarded against 
running- out of time, and having t 
detecting the fact that carrier i. 



Wi 11 explain exa 
runs out of time 
thingswill be o 


If carrier is dr 
immediately sets 
Then/ the ml cod 
system is at an 
chr ${1}^ (contro 

routine -(line 10 

save all necessa: 


example# 

10 gosubl0 

20 gosublOOS:iftr$<"c 
100 a=4^b= 6 ia^=^ ; He 11 o 
110 iftr$< "Ctrl -a"the 
115 a$="Hows it going 
120 return - 


ould be corrected** in' the "following way, and still wort the 


EXAMPLE # 

3-= ; L fci p SO 

20 ifna$-"SYSOP"thena=5GO: goto 4 0 
30 x=int(rhd(l)*50)fl 
40 next . 

50 . . . 


EXAMPLE#2: 

10 gosublOO 

20 gosubl006:iftr$<”c 

100 a=4:b =6 :a$="Heiio 


l-a"thenl080 
syso - . - - 
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In example#2 ~v line 110 would not actu 
as long as you EVENTUALLY return to a 
tr $, you *11 be ok. 


pr ograMaing_ structure_r_ples.. apply.^as ^usual . ..These 


A> "REMARK" (REM) statements throughout to document large - - 
■ routines-.and; variable",usage; / - . „ - „ _ 

B> A general program:"flow" from.top to bottom without GOTO's 
every other "line jumping a 11‘oyer the' code. : - 

C> Hake an attempt to use efficient coding. Pay attention to 
memory usage and run time. Even though your memory is "reserved” 
fora p-file, efficient programming, and saving room still makes 
-the: program run faster . 

,D> Error guard your input I Check for numeric input too long, too 
low, too high, etc., to avoid errors such as division by zero, 

siilyf:? Ity^fe t c^ f fr omxeyffr-ySSppeSi'hq:' 

E> Never GOTO a line outside of your subroutine without RETURNing 
break.’out of-a f or-next- - loop^|SSS^P5f^|^S^e^^^PiSilS;ite: 

j!|^S|^fe ! ^^l^hapte?ip)f ^^s^g&auualssg 

fVariabl^^ha^heScpgi^sott^i^isSe^saftfeff^jitMSchaptefi^f 

when’choosing variables to use within your *p-f iles^md"gggg 
modifications--do not.simply -choose random variables out of ' 

nowhere. Serious problems can occur, (and have occured), 

immediately or hour £3 later, . after the system has been running - for 


C-Net provides a way for^youko create and then, when you are 
finished, dispose of variables for use withiiryour p-flles. 

Before using this technique, you should attempt to re-use ----- 
existing variables, as permitted in chapter _jthree. WhenoC-Net 
gives.- control to a p-file tn" most cases, it “calls a routine 
(sys52587) which saves the current position of the variable - 
pointers ...When the p-fiie is finished running, you can restore 
those pointers, thus eliminating all new variables created by the 
p-file, bydoing a H sys52605". The only drawback to this 
technique is that you may not- (obviously) save any values in a 
new variable to keep track of anything done in that p-file. If 
you want to save something like this, for example, number of 
times played, etc., a good way.to do this would be to POKE screen 
memory somewhere. (I use the top of the screen, along the borders 
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of the upper status screen) DRAGONWORLD, on the accompaning 
P _ flie disk t uses this technique to; keep track of number of : game 


2.5 BASIC INPUT AND OUTPU 


a$-''Hello world! ":syso 


•; This will print "Hello world!" to the screen, and leave the 
cursor at the end of the output line without performing a 
carriage-.; return. A small modification to the line: t- 

- , . - ; 'V--.'- ■ ■ ■ : . • ’ , .: ' ■ : - 

lp=l:a$="Hello worId!":syso ~ 

;..wili still print "Hello world!", but will 'perform a‘car r lag, 
.return after-the text. 


GOSUB 1007 will take c 
will be.returned both. 




-3- BASIC-VARIABLE USAGE 

—-,r\—r “ ' 


BAS IC VAR I ABLE US 

This chapter contains a COMPLETE'; list of all BASIC variables : 
used by the stock C-Net 64 vl2.0. including all system program 
files. Each variable is given along with a description of how it 
is. used throughout the program. 

When you are making modifications to the C-Net program itself, 
and you require a permenant variable for- your routines, (one 
that must keep a value), you should stay clear of ANY of the 
variables listed below, as they are all used - in one place or 
another in the program. When you only require a temporary 
variable for your purposes> you should pick carefully from the 
''“iist '- instead of addirig : another "var iable to the system, to save V: 

. on memory and make.';things run faster .'. For example, say you';.'...'.. 

' wanted’to keep a-counter'of the total number;ofU2400;baud-. ; - 
callers. That would .be'‘a var iable. that you don't ever want C-Net 
to use, so you would pick a new one, such as al%. On the other 
hand, say you wanted to print out ten random numbers before the 
.. main prompt. Instead of picking new variables out of the air to ... 
ibog the system down "with, such as , "forz9=l to 10:r9=rnd (0) ”> V°u .• 
could save the extra memory usage“and use "for x=l to • - 

10:r=rnd(0)" instead. - f 

- . ' 3 * - v - ■&■*- •- w * th -*' ’ ,v* v ~ ■ ■ ,r 

jJ , Denotes~an/;pp_ezating system variable, which must nptRbe 

interfered with-'by,-externalhprogranimihgi' There is' no/problem/’ v 



Jbr^bdificatlbns to:the main. program.;be:ngteS^a^|yaf iable: 
'bthatfiis.;;Used' arid/or .altered :by .oneCormore. system'Lxbutihes'j^aisiUSf;;.. 
described in the text following the variable. Is is only safe to 
use one-of these var iables . i f - one o.f *the routinesfbhat-'uses it - §• 
is not.called at .the time"that you need it. (Temporary use). . ' 

Check the "NOTES" section under any subroutines that'you use in 
•the main program to make sure that no variables you are using 
are altered by the routine. 


- a 

- a$ 

- ali 

- a2 
-~~a3 , 

a4 

t lUac% 
* ac% 

- a% ( 

! ag$ 
X ak$ 

- a n $ 
i ao% 


Temporary use. 

Temporary use. MCI variable 5. .V-W 
Temporary use. 

Temporary:use. 

Temporary use. - 

Temporary use.~ ‘^ 

. Access™group- number . (0—9 ). -c_£_curren t-user™ 

(30)_ Subboards and UDs- Access codes for each • 
subboard. 

44). Temporary use. 

Access group name of current user. 

/ Thirty-eight -*s, (ASCII) or. chr$(192) '.s'. (C/G) 

,v : itjX followed by a carriage' return.' MCI variable j . : 
Temporary use. MCI variable 7. ' ; 

Access group of user at . logon. Used.to check. 
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- if access was changed by sysop while-user,is : 
on-line, to.read .in new access data , if necessary. 

Temporary use. - - ^ 

4) Temporary use. 

Temporary use. MCI variable 6. 

Temporary use." 

30) Used in "p.s" (subboards), "p.u/d" and "p.diredit" 
to hold names of subboards. In subboards, if name is 

: ..preced.ed„ i yiih.-.an,.^.ot^-Or... ,, p/", . that, board.is_e.ither ,an 

anonymous or a password board. 

;/.....;- Total number o£_ blocks that current user^has ever 
downloaded. 

Temporary storage ,of blocks free. 

5) Blocks free on all:system devices. (l-6-"system" 

<i .vices, 7-lb=device numbers) . Wi 11 contain blocks 

.f ree of last drive accessed (0 through 9) if it is a 
dual drive or Lt. Kernal hard drive. 

.5 , Unneeded, free to use, but reset to 0 during input 
routines. - 

. Subboards and UDs- current board number. 

•'weed- counter for ’ how many users weeded 
O copier -'-error flag. $ -1 iffi tig 1' 

Temporary use. . ; 

|g|l^|^bboirids 4 ^:hd UDs- p0inter"'to...current?bu 11 e11n/fi 1 e 

■ being .accessed. . -.a <•: r- w 

Email-, Current-, message. numDei_ being,accessed .I 
- iNews/tP and'.G"'files- How. many/i terns in cuxrect. | 

* ■ . - * 

■ 'i^rTotal^numberyof Ablbcks thatocurrentlfuser' has ever 
uploaded/ • 

Subboards and UDs—- Number of subboards the current 
: user has access to. -P'S:* • i .i\wir A “ lJ T-j 1 


/ Subboardsiand: UDs-/Holds -ID#/Of? user/who///:./! '/T/-//- 
posted/uploaded each file on directory.; 

Email- How many lines into "cm." file that each 

message begins •at.... ,;, ' /... / 

News, P and G files- access code for each entry. 
Temporary use. 

.Total. number of calls ..since system was started. 

Chat flag.; (Was chat requested?) l=yes 0=no. 

16-character/chat-message. ’ . 

.Set to current "Area"- UD#2,, Email, etc. . , 

..Total number of calls since the system was booted. 

- Computer type.(name) of current.user . 

. " All computer; typesm/l 1-3 > .. / ” ; / , 

/ ■Computer type: “(number;) 'of.'-current- user -■ f 

• Credit point's ‘ of current user. 

'-Number of calls current; user has made today. 
Temporary use. 

Subboards-;contains number of responses to each- 
bulletin V . UDs-/ contains -computer type for; each'file on 
directory.. Email-, contains' ID number of user -who sent 
each message. News, P and G files- Flag for whether 
user has access to.specific entries//;/; / 

Device number if dr used to specify a;■-©articular 


c%(60) 




wz. t 


BASIC VARIABLE USAGE 


-'O'Z'L- <3 2 % 


! (31$ 


device for a disk command, 

Drive number if dr=0. (Used to specify a particular 
drive for a disk command. 

The current date and time. This string is 11 ASCII 


characters 


VYYMMDDHHMM where W 




is the day of the week (1-7, l=Sunday), YY is th 
year, MM the month, DD the date, HH the hour (80 
added if the hour is PM), and HH the minutes. MCI 
variable 0. . 

Board name lor entry files. MCI variable 8. 

Last caller to system. MCI variable 9. 

Name of, the last,protocol loaded. MCI variable 
; .The'current' users true last call date. MCI var 


do?- . Dar6 and tiins of log rostiart. ‘"r, 

da$ Temporary use... . V’.- 

dc Downloads the. current user has made this call. 

dr Used to designate "system” device/drive when calling 

•V: disk routines. 1-system disk, 2-email disk, etc., or • 
p^MMillfiidr^bhlfewheri accessIngliubboaird/UD devi-ces. H®® 
dr$‘-~ Holds number of drive plus a colon (”0:”) for disk 

• routines.. ; ■ . ' • -1 

dt$ ( 60 ) c Subboards- contains" a 22 digit string for .each/ 

B ^^|respdnse;.dCDs^tcphtaihsr?f I>digit date of Cuplcadffor@.| 
* ^each £n e :*.E^ij*ate|^ 

v? follow,backwards ! ,on.=;»J*;command. "p. t " (term) ^phbne Iv. 

-■ numbers in phonebook file. 

dv% Device number used in disk routines. 

dv%(36) Holds 'device numbers of a]i system devices. 

dv%(1)=system disk dv%(2)=email disk 

.dv%(3)=etcetera disk dv%(4)-gfiles disk 

dv%(5)=pflies disk dv%(6)=user disk ' 


e r ror Imeb s ag e S 

of times downloaded for each 


(8) 
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- Picks which screen that'will be displayed at "System 
Idle." 

~ 1= . Clock ■ . 

' 2- B.A.R. screen . . 

3= Blocks free screen 

UDs- temporary blocks free variable. 

Temporary use. Used to print number of blocks free 
on screen. 

----'First- name- of^current-user:-«T- 5 ;^s;-—“-r 7 ---~'- 

Access flag string of current user. 

fault access flags of. a 11.. access gr oups 
. . 'Temporary use. * ~ * - 1 

Temporary use.- - . . 

Emai1- flag for sending mai1 to more than one user. 
Number of times current user has guessed'on' password 
board. 

Temporary use. 

Temporary use. Usually used in f or.-next loops. , -L 

Instant logon flag. 

: - Holdsdata■ for sysop instant logon. First character 

is access group' number, .2-xx = .Sysop',s handle. , , 

Data .for instant logon. .First character is expert 
mode flag, chars 2-15=phone number, char's 16-xx =real - 
naiae. f i 

v: /Data -for instant logon! First four characters are , . 
ASCII- characters representing: 1 = -,minutes., per call (0. 
I^Sifflmiited Wi 3ihidle.|® 
tune £0 =■ unlimited) ;* 4=-.downloads -per call (0 = 

. ID number of current user. 

P.and G files- used to holdeither "P" or "G" 
depending on which 1 you;are in. - Temporary use. 

System two-letter login identifier. 

Temporary use. . 

Temporary use.. ’« h - ' . ; . ; . 

'-Temporary use. After using editor, contains number 
of lines usedfl. (0 if editor was aborted). 

■ Temporary use. 

: Location. 

0-System Idle... ' ... . 

1-Main ....... 

' 2=SuDboards 
5=U/Ds • 

6=Emai 1 -,■ - 

7=.News'or P/G files . ■ " .•■•■■■■■■:■'■ -' .■:; . '' " ' . 

9=Logcn ■ -■-_ _ 

Requested -last date of current user. Set to true-: 
last call if "LD" command was not used, or. date, was 
not:saved at last logoff. See dl$ for format.-MCI 
variable 1. " . 

Linefeed flag. l=yes. Q=no ■ i 

P and G files- Number of directories that were - 
accessed. ' 

Last name of current user. 

Line length of current user. (22-80 columns) 

Set lp=l before "syso" to send-a carriaqs return 


jWlvi-bv^rf. 








vi'Tt-7 


- lr 
! lt$ 


- ml % 

■ ! mm 

! mq 

- ms$. 
! mt. . 

- mw ' 


mx 


• cwW-t na $ 
! he 

* nn$ 



y _ Sgl- , _ -J- BASIC; VARIABLE USAGE h£ff-'Sp‘~ 

5 ?* ;r ■":'■■■'■ '/■.?; -'7' -'7 • ' •' /7;.7. -7 ■ - Vyv'yi- lyy-.v:- i'- v - 

automatically after output. 

Temporary use. 

Logon time and date.of current user. See dl$ for 
format ^Civbbjyyyy 

Temporary use. 

Used in ml input routine. 

Mall flag. mq=l if current user has mail. 

Temporary use. 

-..^o-Modem: type -of -current-usierr^^^r^p^y;-::--;--;^----— 

syso; ' if raw;1 s ■''sets'to tl before^ a''Sys~o , the file wilf'* 
liililMb.or.t^iHimediately.-.upon pressing either the space bar 

or the ”/”: key.. ’ ' / ;• . ' . - 

Modem xor identifier. ^ 

Handle of current^ .user. MCI variable 2. 

■ Number of /creclits to start'riew ; users at;- ! “ ~ : -rt, 

ASCII-C/G mode flag. 1=C/G mode 0=ASCII mode 
Subboards and Email- Name of message sender. 

Temporary use. 

(SC) Subboards- Handle of user- who posted a message. 

UDs- Handle of user who uploaded file. Email- Handle 
: of user who sent each messageNews- Date of each , « 

Subboards-,flag for 'whether a board has new 1 

tivity. 

Constant for output routine, (sys52904) 

^Subboards ^and^UDs^r:30 cba^actei^^t^Ijig^of^zeros and,v 


1 ®®: 

: piv 


.i. 


d 2 % 


ll !Wtaif p 3% 

I ’Ttte»r«£.! ph$ 
£r - . \ - - 

i 1 - pi ‘ 

" - • r. — 

- P p 

I ! pp $ 

if4-X4-%“ - -i-- - 

i|SPil^SSS3g®^P r ^-' 

ci P 

i ■ ! pt% 

f . - - ti * pt ■? 

;i \ Oo-ofa pw$ 


• -H u 

~ qe 

* r 

i r$ 
- rc 


..., MNumber.y Ofelyln.tl.t ^^^ Sca 1 Itfefepr-’fmUtrlme ;# ( , 0 )=n 6 l|. ,. 

pr ime*ft 1 me ^conf 1 

Beginning ,time for. prime time period. Format; -Number 
of minutes since midnight. (60= 1:00 AM etc.) • 1 
End ing 

Phone number of current user. Format: (313)/437-9486 
MCI variable 4. 

- Input routine. (GOSUB 1028) Set pl=l for uDpercase ' 
only. . -■ .. 

Printer offline flag.•l=offline 0=online 
Password for password board.,— . t _ i 

Temporary use. 1;. §| fi§j 

■ ~ Number of the last protocol loaded. 

Name of the last Pfile - loaded. 

Total.number of bulletins the current user has ever- 
pos t ed If 

me._P.rime time flag. l?prime time C=no 

Email- user handle to send message to. ■■■■■■■ 

Password of current user. 

, Temporary use. 

Baud rate of current user. 

» :Subboards and UDs—.flag for-any-new activity. 
Subboards )and UDs- board'number requested. 
chr${13) {Carriage return). - 

syso; rc will be set_by ml coding to 1 if the 

• - - -spacebar was hit-during - output ; . •„ 77 7 —: 

:c$ ' Temporary use. ~ * ■ / - 7 ; 


(10) 
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^feedback.-: 

, posts *r | 

l|§j * uploads |p|f 
downloads' 
new users 
calls/log 
. time used 
timesidle 


* rn : Subboards and UDs- Number of bulletins/files on . 

current subboard. Email- number of messages waiting.' 
News, P and G files- Current entry number, 
i rn$ Real name (first and last) of.current user. MCI 

variable 3. 

! rp Total number cf responses the current user has ever 

made . 

* rq Subboards and UDs- Has a request to access "new" 

been made? l=yes 0-no 

-;.rs ...Ma flag. for whether.an: ."alJUleyels!L_command,..waa. 

issued. l=yes 0=no.Subboards- Number of current 
response'. ’ - - ■;; 

- s'-' Temporary use. -- ~ ~ ~ *• , 

- .s§ - , Temporary -use. ^' .«■ '• ; ; ... 

*. ; sa. subboards‘and UDs--Subop access flag. l=current user 

.’is 'the subop of current^board. • "■ jv.;;.'v •: 

- sh syso; if sh=47 after output, the "/" key was 

pressed. 

* so%(30) Subboards and UDs- The account number of subop of 

the current board. 

p Subboards-- Direction for scan/read/about. -1-forward 

-1-backward 

tv' System drive status variable. ' 

t(38) : ’Status variables foruthe;!B.A;R.. screen 


• ul 
! ur 
- uu$ 


Holds name of last configuration loaded. (Sub or 
. U/D) . 

Temporary use. 

Time of last-logoff/logon for setting st{) 
variables. 

.Total number;of’ calls current.user has ever made to 
the: system. 

contains ASCII character representing time remaining 

on system. To read, use asc(tr$) ..• . 

' ’’ . Temporary use : : - v '■/./’ .V 

101). Editor text, "p.t" (term)- contains names of" BBS’s 
in phonebook file. 

Temporary use. . 

Uploads the current user has•made this call; 

Number of current active accounts-oncthe system, (ur 
minus number of deleted accounts). 

’-Uppercase only flag. l=yes 0=no 7 

Number of users on file, (includes deleted accounts) 
Temporary use. 
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in ml input routine, 
in ml input routine. 
orary use. 

I string of drive"numbers. 1 
2nd email disk, etc. 7 throu 
rds. 

orary use . 
orary use. 
orary use 
orary use. 

1 and psuedo local mode.flag 


purpose of editing . 

:;iiL-;is-;not::' kep€; in . memory, ", 
. This can cause a "redim'd 


variables NEVER to use 





■ jiM i'_ - - _ -4- SYSTEM ROUTINES . __ __ _ 

Ijjjil ■■■■■ "1:4. SYSTEM SUBROUTINES: 

' Just as it is a' waste of memory to use unnecessary variables in 
your, modifications and p-files, so it would also be a waste of 
memory to re-write code that is already available for you. This 
■ chapter contains a COMPLETE listing of the subroutines in the 
■■•I: r cn (main) program. Each subroutine is documented in the 

following manner: 

LINE NUMBER 


FUNCTION: Description of the routine. 



INPUT 

RESULTS 

NOTES 


What to do before calling the routine 
What comes back from the routine. 
Variable usage and special considerat 

4.1 GENERAL INPUT/OUTPUT ROUTINES: ' : 

: y. output routines : : C'. ■ ':'y r ; y.y'- 

\ • GOSUBlOOl (or "syso" ) ; V'- 

Output (print) a line of text, (up to 255 
(.text to print)", 1 p=1 will print a ca 
-etu^n the text, raw-1 will allow abo 

output upon pressing spacebar or key. 
RESULTS : rc=l if spacebar was pressed during output 
if "/" key was pressed during output, rc w 
■ mT , - automatically reset to 0, sh will not. 
.NOTES,. - :, lp,mw,rc,sh_ altered. Putting a - control-d ' 1 
to be output immediatly before a "date str 
will translate the 11 digit numeric string 
expanded form. Example: ff| - . . §ij| 

"18702030405" will read "Sun Feb 3, 1987 "4 
The british pound key has special meaning 

the’ MCI ’chapter in your-.t 
manuar for more details). 


FUNCTION 

INPUT 


FUNCTION 

notes 


FUNCTION- 

NOTES 


INPUT- ROUTINES 


- - _ GosuBioos -. ' i 

Ai .^° w the/user : to input a . line of text in uppe 
and/or lowercase. ’ - - 
a n $=”(text entered by user)". 

bl^pl altered, tr$=chr$(0) if time! has run out 
or carrier/local^mode-dropped.?If a limited 
amount of characters are desired; poke53252 
(number of characters max) .' . H*' 

. 1 ' _ ; GOSUB1 00 61 1: 1 “i: .1 I - : : . 

Allow the user to input a line of text in “ 
uppercase/numeric only. 

an$-" (text entered by . user) 11 f 

bl,pl altered.' tr$=chr$(0) if time has run out 
or carrier/local mode dropped, if a limited 
amount of characters is desired, poke53252. 


FUNCTION 


RESULTS 

NOTES 


FUNCTION 
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before calling to specify upper or lowercase. 

: GOSUB1007 " r ' 

Get one character (uppercase/numeric only) from 


FUNCTION 


a$ and an$="(character entered)". 

GOSU31499 

Input an$, then translate any characters from an 
to true Commodore ASCII. (Used for patterns in 
disk commands). 

an$ will contain true Commodore ASCII characters 
needed r - - : 

bl,pl,x,a$ f an$ altered. Certain characters are 
translated to different character v.a lues by 
C-Net, to allow the use of these characters in ' 
the names of posts, and such. This, routine . 1 ;:,/ 
changes those translated.characters ; to their 
actual values 


RESULTS 


NOTES 


4.2 DISK COMMAND ROUTINES: 

. ^SPECIAL NOTE: To set the drive/device numbers for - any of 

these routines, you may enter "dr=x"to __ 
•. 4 v. ■; '- specify any of thek^system" devices, (evg 

.. 1= "system" disk, 2 = "email" disk, -etc.), 

- : j OR you may set dr=0, dl%=device’number, 

d2%=drive number to address any particular 
device/ drive. 

• GOSU3100 2 

FUNCTION: position relative file pointer open to file' - 
number 2. | - ■ 

, ' X ~ S 5’ 

; ’ NOTt-S a,s$/altered. -Thxs routine has been updated. See 

chapter 6 . ■ 

GOSU31003 

FUNCTION: Cneck disk error status-of ,device wlt’n command 
. - channel opened to file #15. 

INPUT : Open command channel to file #15 before 

, RESULTS : aS-two byte ASCII code, eg-"00" for "ok", 

b$=error text message, an$=two byte ASCII for ". 
track#,. z$=two byte ASCII for sector.- 
a$,an$,b$,z$ altered. 

GOSUB1009 

Set device & drive, .variables for disk access , 
dr-code: for. which /'system"; device to set 
variables for, e,g. l="system" disk, 2 = "email" 
disk, etc. OR dr=0,dl%=device;number, d2%=drive 
..number. 

RESULTS . : dv%( 0) - d 1 %, dv%=device number of whatever • . ■- ■ 

"system" disk."dr" was set to before calling, 
dr$=drive number followed by a colon. 

' Example: ”0:".NOTES - : dv%,dv%(0),dr$ altered. 

GOSUB1010 

FUNCTION: Set device & drive variables,; then open command 
(error) channel to specified device. V. 

*INPUT : Same as 1009. 

NOTES : dv%,dv%(0),dr$ altered. ' 


FUNCTION 
*INPUT W\ 


GOSUB1011 
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FUNCTION: Set device & drive variables, open command "' 

channel, then open file to specified device, to 
file number #2. 

*INPUT : a$="(filename and arguments}" e . g . :a$ = "file,s,r", 

Do not include the drive specifier (like "0:"), 
it is added by the routine. Otherwise, this 
routine takes the same input as 1009. 

.(ar,dl%,d2%). 

NOTES : dv%,dv%(0),dr$ altered. 

GOSUB10 81 

FUNCTION: Update blocks_free on specified device/drive. 

* I NPUT : 'Same as 1009. ~ v: '.r ;; 

RESULTS : bf=blocks free, bf(device#)=blocks free if drive# 

•: ,i ."t* .* .* T _ - 

, vNOTES V, j a,bf ,bf (device# ),dr,dyi, j,’x,dv%( 0),an$,b$,dr$ altered 
V C*; y - GOSUB1085 

f& FUNCTION: Check for" 1 write error^ri;Vspecif ied"devfc^drivel'-co C 
(Usually directory full error). ill"'' ' 

Same as 1009. 

a = l if error occured, a=0 if not. 
a,dv%,dv%(0),a$,b$,an$,dr$,z$ altered. 

. GOSUB1090 , 

■ JUNCTION: Read and display.directory fromspecified 

l^^?^ u Ti?J"'yi < ^v%=dey'lcexhumberv;ldr $="(drivechumber + a 1 - '’"V' 1 „ - 

colon)" . . . 

(Example: "0:") an$="(pattern)". 

NOTES : a$ altered. File number 2 is used in .this 

^opera^i^^5i^ ^>.sed:f»h^^Eln ished. _ ?: \ 

,3 FILE HANDLING ROUTINES: ' ^ • -v’ 

FUNCTION: Scratch sequential file, then reopen it to 
replace. 

*INPUT : as="(filename)". Same as 1009. 

NOTES : dv%,dv%(0),dr$.-altered. File number 2 is left 
open for re-writing. 

' . - ’ r < * f ■■ •* -»•>- ^ I- -ift V rJ, ^ >»?•« iWet" 1 

GOSUB1027 

FUNCTION: Open file for read/wrlte/append on "etcetera" 
disk. 

*INPUT : b$ = "(filename)", a$=argument: "a"=aDpend, 

"r"=read, "w"=write.. Same as 1009.’ 

NOTES : dv%,dv%(0),dr$ altered. No argument needed for a 
relative file. (a$=””}. 

.■■;■■■..GOSUB1060 " ' ' 

FUNCTION: Open "etc.stats" relative file for read/write. 

NOTES : dr,dv%,dv%(0),a$,dr$ altered. : 

GOSUB1061 '. : 

- FUNCTION: Open "ujalpha'^relative; f f iib s lfcfefread/Writerh5S"!Sj ? h : : C^ 

NOTES : dr,dv%,dv%(0),a$,dr$ altered. ' 

GOSU31062 

FUNCTION: Open "cm." (email) sequential file for 
read/write/append. . 

INPUT : tt$="(Handle of user)" ,a$- (argument): 

"r"=read, etc. 

: NOTES : dr,dv%,dv%(0),a$,dr$ altered. 

GOSU31063 


* INPUT 
RESULTS 
NOTES i 












mm 
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FUNCTION: Open ."etc.data” relative file for read/write 
NOTES : dr,dv%,dv%{0),a$,dr$ altered. 

GOSUBIO 6 5 

FUNCTION: Open "u.config" relative file for read/write 
NOTES : dr,dv%,dv%(0),a$,dr$ altered. 


GOSUB1030 

FUNCTION: Read a sequential file currently opened as file 
number 2 until a is encountered in text, 

space bar or "/" key is hit, or end of file is 
reached. 


*1 



INPUT 

NOTES 


Open file number 2 for read. 

Ip,rc,s,sh,a$ altered. File may be opened with 
different number than;2:by "poke42241,number" 
make sure to .poke42241 / 2 when f inished 
GOSUBi075^, .i,y- 

Read a sequential- frle/ using^flie number 5, cle 
the. screen first. 

a$="(Name of file)". Same as 1009. 
ip* rc / s /sh,a$ ,an$ ,b$,z$ altered. MCI reset. 
Fileread wi 11 abort upon pressing the space bar 
or "/" key, ; or upon encountering a "'’"- in the 
.text, or a line over 80 columns. 

- - GOSUBIO 7 ’ 

Read a sequential file using file number 5 , do 

NOT clear: the-screen first. 

a$="{Name.of file)". Same as 1009. 

Ip,rc,s,sh,a$,an$,b$,z$ altered. MCI reset. 


FUNCTION 


*INPUT 
NOTES 


FUNCTION 


*INPUT 
NOTES* 


.Fileread .will.abort upon pressing'-the~spi 
or "/" key, or upon encountering a i 
text, or a line over 80 columns. 


FUNCTION 


INPUT 

.NOTES 


FUNCTION: Read a "menu” file from the "system" disk 
read "menu 8", {Commands available at all 
prompts). 

lc=number of menu. 

dr,dv%,dv%(0),lp,rc,s,sh,a$,an$,b$,dr$,z$ 

altered.; 1 

GOSUB1490 

Append a string to the "etc.log" file. 
a$=^" (string .to. apDend } " 
dr,dv%,dv%(0),an$;b$,c$,dr$,z$ altered, 

4.4 RELATIVE FILE HANDLING ROUTINES: 

"etc.stats" 

GOSUB1025 

: FUNCTION: Add one to a status: (BAR) variable and wr 
. "etc. stats" . file. V • . J 

INPUT : x=number of record: 

‘ last call log crnt system 

Feedback : 1 12 23 .1 30 

■■ " - Sysop Mail: 2 13 24 31 


INPUT 

NOTES 


FUNCTION 

INPUT 

NOTES 
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User Mail 

i 31 

14 

25 - 

32 

Posts 

4 

15 

26 

3 3 

Responses 

r; 5 

16 

- 27 

34 

Uploads 

6 

17 

. 28 

35 

Downloads : 

7 

18 ' — r 

3 6 

New Users 

8 

19 

29 ■ >'* 

- - 

Calls/log ■: 

9 

20 — 

-- 

Time Used : 

10 

21 

37 

Time Idle : 

11 

22 

38 


RESULTS : One added to st(x). ->y'■ / •' . 

NOTES : s$ altered. 

gosubio 26 ^ . 

FUNCTION: Write status (BAR) variable to "etc.stats" file. 
INPUT •: x=number of record, (see 1025 above ). , 

NOTES : s$ altered. •' ;/"■ - 


"etc.data" 



GOSUB16 3 4 

FUNCTION: Update access data in from "etc.data" relative 
file for user that is on line. 

INPUT : ac%=access group! (Usually.set by system...see 
below). • _ 

RESULTS Necessary data is "poked" t o propeV-toca^io^^in"^^ 
- • .. -*•, ' 'System,: f 1$ will be_/reset to newaccess flags of 

gm^j^i^that^icc^ss. groupiejjset^to^inumberVof-edltoz^Sp 
*i.ne.sj-for .that /group^ag? to - the:.naii«To'f 
group. * . - 

NOTES : ao%,dr,dv%,dvMO),el,x,a$,ag$,dr$,£l$,s$ altered. 

' ac% is changed by the ml if the access' Is changed 

using the lightbar from the console. 

' ' GOSUB1638 

FUNCTION: Get "ca" (Total calls to system) from "etc.data" 
file.’ 

ca=number of calls 

ca,dr,dv%,dv%(0),x,a$,dr$,s$ altered. 


RESULTS 
NOTES 1 


GOSUB107C 

Write all data of current user on-line to 
relative, file. 

None. ■ ■■':■_ yy-v y \v ; yy^y 'y 

dr,dv%,dv%(0),x,a$,dr $,s$ altered. ^ 5v 


FUNCTION 


u.config 


INPUT 

NOTES 


i, i GOSUB 1034 . ^ __ 

Delete a user : from the ,"u^alpha"^file 
(Number of users in file)." r r;~ ~V ; '"* 
an$="(handle of user to delete)" 
i=0 If user not found in file. 
b,c,d,dr,dv%,dv%(0),i,x,z,a$,dr$,s$ a 
: GOSUB1038 

Add user to "u.alpha" file, update "u 
users in file). 

an$="(handle of user to add)", id=id number 
add. __ - _ 

I£ handle is already in file. i=idi: of-iissr 


FUNCTION 


INPUT 

RESULTS 

NOTES 


FUNCTION 


(Number of 


INPUT 


RESULTS 
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handle. . - 

b/c,d,dr, dv%,dv%(0),i,x,z,a$,dr$,s$ altered. 

GOSUBIO 4 6 

Search "u.alpha" file for a specific handle. 
an$="(handle of user to find) 
i=id# of user if found in file, 0 if not. 
b,c,d,dr,dv%,dv%(0),i,x,a$,dr$,s$ altered. 

4.5 P-FILE ROUTINES: 

... GOSUBl013 .- ___ v.., -..-.. 

: Load pfile into memory from "pfile" device (5). Sav 
variable pointers first. 

: a$="(filename without the 'p.')" 

: dr,dv%,dv%(0),a$,an$,c$,cm$,da$,dr$,pr$,z$ altered. 

• • GOSUB1302 ‘ 

: Load "p.lo" (logon) 

: dr,dv%,dv%(0),a$,an$,c$,cm$,da$,dr$,pr$,z$ altered. 

GOSUB1303 

: Load "p.s" (sub-boards) 

: dr,dv%,dv%(0),a$,an$,c$,cm$,da$,dr$,pr$, z$ altered. 

:^^.i3 :i -v^>: r ;^;'-^, : > v GOSU31304 i 

: Load "p.u/d"_. (up/download j ‘ ’ .. /;• . 

i;:dr;dv%^dy%(6*i/a$,an$;c$,cm$,da$,d r $,pr$7z$: altered 
>; GOSUB1305 

UNCTION: Load "p.E" (edit parameters), and run as a 
subroutine. 

dr,dv%,tz,dv%(0),a$,an$,c$,cm$,da$,di$,pr$,uu$,z$ 
altered. ■ 

V I ■ r' ’--gos ub 131 6 ^ r., ' -s - 

Load "p. em" (email) : . . 

L%t.f ; ^ r 1 <3y%, tz,dv%(0),a$,an$, c$,cm$, da$>dr $, pr$,uu$,z$ 
’altered. 

GOSUB1317 , 

Load "p.n" (news) 

None. / 

dr,dv%,tz,dv%(0),a$,an$,c$,cm$,da$,dr$,pr$,uu$,z$ 
altered. . " 


NOTES 


FUNCTION 

INPUT 

RESULTS 

NOTES 


FUNCTION 


INPUT 

NOTES 


FUNCTION 

NOTES 


FUNCTION 
NOTES _ - 


slpp 

•UNCTION 
OTES 


FUNCTION 
INPUT 
NOTES ' 


SEN (CONSOLE) DISPLAY ROUTINES: 

- ~ - GOSUB1360 

Print a string in the "Area" section of the console 
screen. 

cm$="(string to print)" - 
GOSUB1371 

Position cursor on console to second line from bottom 
of screen. 

GOSUBl370 

Print a number (to five digits) with leading zeroes to 
the second line from the bottom of the console screen, 
a-number to print, b=i digits, c=# of spaces to print 
from the left column. : : : yy 

x,a$ altered. 

; -~ 3". GOSUBl378 Y&Y 7 YY%. -p?t \Y--i 

Print blocks free last device/drive accessed on second 
line from bottom of console screen, 
a,b,c,x,a$ altered. 

GOSUBl3 7 4 


FUNCTION 


INPUT 


FUNCTION 


FUNCTION 


FUNCTION 


NOTES 
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Tik ■ FUNCTION: Print total calls, calls since bootup, and current 

It number of users on second line from bottom of 

console screen. 

input : g=calls since bootup. . 

NOTES : a,b,c,x,a$ altered. 

GOSUB1377 

FUNCTION: Clear center of bottom line of console screen between 
:" and ”T:" windows. 

NOTES : a$ altered. 

GOSUB137 6 

FUNCTION: Print a string to the center of bottom line of console 

■j) I:,..; -T- screen.::vv; • £-• ^ >r; ■■■•—a 

(Hi;- . INPUT a$ = " (string to print)". ■’%.< ' ; _ 

■ 'a L . ^ TFUNCTION: Print computer type current user on-line in center of- ^ *f 

' | j -bottom-line of console screen. T-.-l. ■ ■ r * T ■ - ’’ 

•■di' ■ NOTES : a$ altered. 



4.7 EDITOR ROUTINES 


GOSUB1581 

Load^proto 3 (ml editor). 
a,dr‘dv%,dv%(0),pq,pr,dr$,d4$ altered. 

Load and enter ml editor for new message.' (No text in 
tt$( ) ) . 

el=number of lines available. 

kk=number of lines that were entered+1 (0 editor was 
aborted).> tt$(l) to tt$(kk-l) will .contain all text 

Sf ** 'a '* ,, i a r \ K 


FUNCTION 

NOTES 


FUNCTION 


INPUT 

RESULTS 


a* b, c> pr * dr ,'dv%, dv% {0 ), kk ,ml%, pqj x,a$,dr $, d 4 $, tt $( ; 
^ al t e redll MC Itz e s e t 

' \ GOSUB1610 ’ 


NOTES 


Load/enter ml editor with text in tt$(j (Edit existing 
message/file). 

el=number of lines available, existing text should be 
loaded‘into the tt$() array. kk = number of current, 
lines of text. 

kk=number of lines of new text-f-1 (0 if-editor was 
aborted)., tt$(l) to tt$(kk-l) will contain air text 
that was entered. 

a,b,c,pr,dr,dv%,dv%(0),kk,ml%,pq,x,a$,dr$,d4$ alt, MCI 
reset. 


FUNCTION 


INPUT 


NOTES 


4.8 ROUTINES USED FROM PROMPTS: 

, Note Some of the following routines upon entrance will check an$ 
from thethird character for a device and drive number, and 
set device and drive accordingly, ‘(see gosubl470). 

— - IGOSUB1354 r- - 

FUNCTION: Read a sequential, file";(*RDX;~y^). 

■ ; NOTES : a,bl,dr,dl%,d2%,dv% / dy%(0)/ip,'pr/s,sh,rc,x,a$,b$, 
an$,dr$,z$ altered. _ : s 

#GOSUB1450 

FUNCTION: Send disk command ("DCx,y“): ; , • . 

NOTES : a,bl,dr,dl%,d2% / dv% / dv%(0j^pT,x;a$ / an$,b$,dr$,z$ •; 
altered. ~ 

#GOSUB1088 

FUNCTION: Update blocks free (BFx,y). T. 1 1 
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NOTES 


a,b,bf,b£(device#),c,dr,dl%,d2%,dv%,dv%(0),£f,j, 
x,a$,an$,b$ altered. 

#G0SUB1089 1; - 

Read directory (DRx,y") 

a,bl,dr,dl%,d 2 %,dv%,dv%( 0 ),pl,x,a$ / an$,b$,dr$ / z$ 

altered. 

GOSUB1372 ‘ 

FUNCTION: Update free memory and print on second line from 
bottom of console screen (’'MM"). 
a,b,c,x,a$ altered. 

GOSUB1346 ' . ; 

Read^'sys. inst” file from "system" disk ("H"). ' ' 

a,dr,rc / s / sh / dv% / dv%(0),a$,an$,b$,dr$,z$ altered. 

s : ^ . / GOSUB1347 > 

Read "sys.cred” f iley f rom'."system" disk ( "CR"}. 
a,dr,rC/s,sh,dy%,dv%(0),a$,an$/b$,dr$,z$ altered! 

: ' : GOSUB1348 * - 

Read "sys.new user" file from "system" disk ("NU"). 
a /dr,rc,s,sh,dv%,dv%(0),a$,an$,b$,dr$,z$ altered. 
GOSUB134S 

Read "sys.config" file from "system" disk ("I”). 
a,dr,rc,s,sh,dv%,dv%(0),a$,an$,b$;dr$,z$ altered. 
GOSUB1640 

Request chat "(C)". 

a /bl,cf,pi,pp,x,y,a$,an$,ch$ altered, + same as 1&78 
(Feedback) if feedback is left. 

GOSUB1656 

Display logon time and time remaining- ("T"). 

': a $ > a h $ alter e 

GOSU31678 mm 

g,Request,Sto leave ffeedback^cr.F 
a,b,bf,bf(device),c,j,dr,dv%,dv%(0),i,kk,ml%,pq, 
pr,x,a$,an$,b$,dr$,d4$,tt$<),z$ altered. 

GOSUB1054 

Read ."etc . log" ( "LOG" ) . 

a,dr,rc,sh,dv.%>..dv%(0),a$,en$,b$,dr$,z$ altered. 

GOSUB1870 
Toggle local mode . 

zz=new mode' value, 1‘ (on), or 0 (off). c ' ' 

zz,a$,an$ aItered /Sft : : : ' 

GOSUE1880 
Toggle expert mode ("X”). 
em=new mode value,;1 (on),.or 0 (off) . 
em,a$,an$; altered'. ~ 1 • 

1 ‘ GOSUB1890 ' ” " 

Toggle ASCII-C/G mode ("AT"). 
nl=new mode-value, 1 (C/G), or 0 (ASCII). 
n r, a $ altered ^ 

^::r: till... 

Display a "fortune" ("SAY"). 

dr,dv%,dv%(0),x,a$,an$,b$,c$,dr$,s$,z$ altered. 
GOSUBI352 

Read local commands menu 4 ("??"). 
dr,dv%,dv%( 0 ),lp,rc,s,sh,a$,b$,an$,dr$,z$ altered. 

:■■■GOSUB1460 - 

Add credits to user on-line ("CA"). 
cr,a$,an$ altered. 


FUNCTION 

NOTES 


NOTES 


FUNCTION 

NOTES 


FUNCTION 

NOTES 


FUNCTION 

"NOTES 


FUNCTION 

NOTES 


FUNCTION 

NOTES 


FUNCTION 

NOTES 

llllp i S 

FUNCTION 
NOTES ’ ' 


FUNCTION 
NOTES . 

FUNCTION 
RESULTS 
NOTES ■ : 


FUNCTION 

RESULTS 

NOTES-.; •••• 


FUNCTION 

RESULTS 

NOTES 


FUNCTION 

NOTES 


FUNCTION 

NOTES 


FUNCTION 

NOTES 
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9 MISCELLANEOUS ROUTINES: 

GOSUBl850 

FUNCTION: Entry to "commands available at all levels" area. 

INPUT : an$="{command)" 

NOTES : Will execute the following commands when entered: 
local mode : 

M ZZ","RD","DC","CA","??","DR" , "BF","NL","CD","MM". 
remote : 

"LD" , "BC" , "ST","EX", "E" ,"LOG","AT","SAY","H","CR","NU" , 

tf I t* H0II HIJIW Hp»| -• ... ' **•* - ~ ...... 

GOSUB1004 

FUNCTION: Get a digit from the access flags. (fl$). 

INPUT : a=position in string to read: 

■ , l=Non-weed status - 0=no l=yes . x , .. 

- - : , - 2=Credit ratio /l. . - - . / 

3="ZZ" (local) maintainence capability. 0=no l=yes 
4=Post/respond capability. 0=no l=yes 
5=U/D capability. G=no l=yes 

6 =Valuerl * 10 = # of editor lines available. 

; .7=Unlimited downloads . 0=no.:l=yes T'_ . ..... 7 - -c 

~ 7 ' ' 8=General remote maintainence capability.0=no .l=yes : -;-; 
9=Email capability. 0=no l=yes . " ‘ 

10- User list capability. 0=no 1-yes 

11- BAR/Log capability. 0-no l=yes 
12=Sub-board maintainence capability. 0=no 1-yes 
13=G and P-file maintainence capability. 0=no l=yes 
14=MCI capability. 0=no l=yes 

d 15=Downloads. atiprime time. 0=no ; i=yes:d||I^ 

— -—— — — - ' ' ' M «rj: 3“ i§ .. "- — 

K Jv y . . : - . .. -r ■ ---■ - . - \r- 




S®i 


: RESULTS 




a'=yaiue;; 


mmsmi 


. GOSUB1008 

r FUNCTION: Check for' carr ier^?- St ffl 


9 * 




RESULTS : a=0 if carrier present, 16 if not. 

NOTES : a altered. 

GOSUB1012 

FUNCTION: Pause. 

INPUT : x=2 for each second to pause. 

NOTES ■ : k altered. . 

GOSUB1019 
FUNCTION:.Read and set-prime time. 

RESULTS : pt%=l if it is prime time, 0 if not. 

NOTES : a,pt%,a$ altered. 

GOSUB1091 

FUNCTION: Update blocks .free in array bf(). 

INPUT - : bf-blocks free,dv%=device number,dr$=("drive 
numberf' : * " ) . 
bf (device# )=bf .. 
bf(device#),j.altered. . 

7 ' - :;V ' GOSUB1G96 -- - -- . - 

FUNCTION: Print a string on the printer if on-line. 
a$="(string to print)" 
pp=0 if printer on-line, 1 if not. 
pp altered. 

' GOSUB1343 ' 

FUNCTION: Get a board number from input to an$. 

RESULTS : r=board number. 

NOTES : r altered. Will find board number from third character 


RESULTS 

NOTES 


INPUT 
RESULTS 
NOTES 
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INPUT 

RESULTS 

NOTES 


FUNCTION 

INPUT 

NOTES 


FUNCTION 


: Translate numeric input from third character on in a 
• nU T er and 5et system'variable: 

' d^k? ' d2t ' drlve number - 0R 

. a , dr,dl%,d2%,dv%,dv% (0 ),x altered. If number is = 
tiian 8, will set "system" disk variables, if no 

U £ umer \ c input found, -will default to device«8 drive#( 
; , Examples :.. "xxl« - vi 11,set dr = 1 "xxlO,l".w 111 set 
dvt,<]l*,dl\(0)-10,d2W. «xx9" will set : 

HJSKS8J *». ’xx’ alone will set ' 

dv%,dl%,dl%(0)=8,d2%=0. 

- GOSUB1S52 ‘ 

Enter chat mode. 

cf-0 (chat flag) upon exiting chat. 

a,ch$ a$ an $ altered. Time is restored upon exit,'or 

raised .if time was added in chat mode. -V 

n( GOSUB1662 ■ 

Display name of current Sub/UD board. 
bn=board number, sy$="(Sub or U/D) H 
ah$=1(name- of board)" 
a$,an$ altered. 

GOSUB1668 

.List available Sub/UD boards. 
sy$="(sub or u/D)". 
kk,x,a$,an$,b$ altered. 

GOSUB1736... 
toad: proto file. 
a=proto number. 

Copier^" 6 ° f proto_Punter f,Xmodem, Editor or 

dr,dv%,dv%(0),pr,d4$,dr$ altered. 

• GOSUB1742 

modfm a L t L i ;-, (mOdem ’ C0 “ nd to Kayes compat.) to the 

a$="(string to send)" - ~ 

k,x altered. 

GOSUB1744 

Display subop of current Sub/UD board."" * - 

bn-board number. 

dr,dv%,dv%('0),x,a$,an$,b$,dr$,z$ altered 
GOSUB1752 

Inform user if he/she is subop here. 
sa,a$ altered.... 

GOSUB1903 


NOTES 


FUNCTION 
RESULTS' 
NOTES »~ . 


.function 

INPUT > 
RESULTS 
NOTES - 


FUNCTION 

INPUT 

NOTES 


FUNCTION 

INPUT 

RESULTS 


NOTES 


FUNCTION 
INPUT. 
NOTES 


FUNCTION 

NOTES 
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GOSUB1915 

FUNCTION:'Turn checkmark on right of "Loc" on If in true local 

Ip<^p@sisi:'v fsaatigsil & 

FUNCTION:, Turn checkmark on right of "L'oc"’on or'off .>t f > v 
ffiaNPUT?sags«jza^a^f orionp; o-?f orse>f f 

TEXT OUTPUT ROUTINES. \ 

(a$ is altered in each case) 

S'/:*.';'i-:;:iir ; v-l' yjgg*, -_;r- *2»5.£r' • r;Jr .-...■■ •„• ;*'.•• ";.. .——. ■'■, •• .-■■>.• *u„ <i-v:'i-':i?;^ .v .- >-• . ■•-,,!• -■_. — •./.j&iWj,-•ip.y,,,, ;;.. . 

,r£?£jzh%*h*3£i»- ■ ■ nnpt tTJ 1 Q ■:■ V; ':I7 


FUNCTION: Translate/print "Yes" or "No" from one letter string. 
INPUT : a$=("Y" or "N") 

RESULTS : a=l,a$="Yes." if "Y", a=0,a$="No." if "N". 

NOTES : a,a$ altered. 

G0SUB19 04 

FUNCTION: Translate and print "Yes" or "No" from value. 

INPUT : a=l if "Yes", 0 if "No". 

NOTES : a$ altered. 

GOSUB190S 

FUNCTION: Add up to 5 leading zeroes to a number and place in a 
string. 

.INPUT : x=number of digits,a=n umber. . IpIIpP 

RESULTS : a$ = "(number with leading zeroes.)" 

NOTES : a$ altered. . ■ . • •• j..' . ;■ 

' vp -7 ■■■ GOSUB1907 '■ pi I/,' : ';■ 7 : '^.I'" " IlPT-I; Il7l : ; r 

■ : FUNCTION: Resell Tine ‘ link's :for BASIC. 

NOTES : j altered. 

GOSUB1908 

FUNCTION: Display minutes left if not infinate. 

NOTES : a,a$,an$ altered. 

GOSUB1914 

FUNCTION: Reset MCI to default. 


FUNCTION: Print "(Aborted)" 1 1 Pfe g . §M 1 

■ GOSUBl 9 21 ■ 

FUNCTION: Print entry message for subboards. 7 ~ ,4 

GOSUBl922 

FUNCTION: Print entry message for U/D boards. 

■ GOSUB1924 

FUNCTION: Print entry message for editor. > 

GOSUB19 27 

FUNCTION: Print "returning" .message.for editor. 

GOSUBl 9 28 • t - 

FUNCTION: Print "Chat page is already on." 

. GOSUB1930 ' . ■ . .. ■ •' 

FUNCTIONr Pr int "Enter reason" for chat". 

.... GOSUB1932 . _ . 

FUNCTION: Print "Paging the sysop". 

... ■ GOSU81934 ? 

FUNCTION: Print."Entering chat mode". 

GOSUB1936 

FUNCTION: Print "Exit ing chat mode" . p ^ 

_ - 77 : GOSUBl 938 - - - V ! 

FUNCTION: Print "Available boards". 4 

. GOSUB1940. 

FUNCTION: Print "To change boards" message. 

GOSUB1942 . .. . 
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FUNCTION: Print '"Leave feedback?" message. 

GOSUB1944 

FUNCTION: Print " ' Y' to logoff" message. ■' 

GOSUB1946 

FUNCTION: Print "You are subop" message. 

GOSUB1948 

FUNCTION: Print "Mail in your box" message. 

G0SUB19 50 

FUNCTION: Print "New users, enter "?" for help" message. 

GOSUB19 80 

FU NCTION: Print "S orry, ___ _____ 

GOSUB19 81 

FUNCTION: Print "That area is presently closed". 

-'V'V GOSUB1982 ' -Vx.— ! 

FUNCTION: Print "Your time for this call is up" 

G0SUB1983 • - - - , * _ 

-FUNCTION: Print "Not enough disk space” 

GOSUB19 8 4 

FUNCTION: Print "This library is full” 

GOSUB19 8 5 

FUNCTION:., Print "You have left too much feedback” - i,- 
' GOSUB1986 . 




FUNCTION: Pr int ."Restr icted function" 




• - .. x : jXj ■ ;X ■ ■ [/A : : ; 


rV-' ^•■x'~ ; --?xx-^->'x:COSUB1987 . : .. 

FUNCTION: Print "Not cleared for that function" rV; 'x~ 

X" v -,--. 5 ; ‘vX GOSUB1988 . ~ “ ‘ 

/FUNCTION:.Print "That..function is temporarily nodlda vail able" -^4 

GOSUB1989 

FUNCTION: Print "No mail today" 

GOSUB1990 



GOSUB1992 ' - 

FUNCTION: Print "No directory space" - 

GOSUB1995 • 

FUNCTION: Print "ERROR-device not present" 


r ■ ~ 


x’Igoto'S" • xx • . 

The following routines in the "cn" program are not subroutines', 
so should be called with a "goto" , instead of a "gosub" if 
needed. 

GOTO1080 

FUNCTION: Logoff for time out/carrier drop. 

NOTES : Should goto here whenever carrier loss is detected, or 
time runs out. 

: _ GOTO1016 ■ 

•■FUNCTION:.. Load a.pfile into memory from the_"pfile" device (5), 
then "goto i" (run) x Do NOT Save variable pointers 
. .. first. - .... ■ ■ ■ /vxnsxv.gy/’tv"'" 

INPUT : a$="(filename without the 'p. f )" 

NOTES : dr,dv%,dv%(0),a$,an$,c$,cm$,da$,dr$,pr$,z$ altered. 

. GOTOl 30 0 . 

FUNCTION: Load and run a pfile as a subroutine. (Pfile must exit 
with "return" rather than "gotol812"). Usually used to 
run a pfile from another pfile, and then return to the 
. .. original. . .. . .. .. - ... . 
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INPUT 

NOTES 


FUNCTION 

INPUT 

NOTES 


FUNCTION 

NOTES 


FUNCTION 

NOTES 

FUNCTION 

NOTES 


FUNCTION 

NOTES , : 

*»S®sife8 iasi 


’ r 

FUNCTION: 


: z$=”(filename without the * p - 1 *) • „ V 

: dr,dv%,dv%(0) / a$,an$,c$,cm$,da$,dr$,pr$,uu$,z$ 
altered. 

;4>4 ■ gotoIOS? 

Load and run a pfile from the pfile library. 
a$="(filename without the 'p.')" 

dr,dv%,dv%{0),fl,a$,an$,b$,c$,cm$,da$,dr$,pr$,uu$,z$ 
altered. If pfile is not found on disk, will return to 
pfile In memory (usually "p.f" (files)) with fl = l to 

GOTO1301 - d" t 

Load and run pfile/ filename same as first-two chars 
-of an$- ; - 

This is used for most of the two-letter pflies, such 
as VF, ST, etc. Can be used with more than two 
letters', as long as the pfile. is named with the first 
two. (Example: the "BBS” command loads and runs 
"p.BB". 

4 _ , GOTO1305 - kl 

sLoad and run "p.cf".(configure) 
dr,dv%,dv%{0),a$,an$,c$,cm$,da$,dr$,pr$,z$ altered. 
^.Used^. only^wheAjinitially^configuring the BBS..Wv%,, 
GbTdip 

Load and run "p.su" (setup) 

dr,dv%,dv%(0),a$,an$,c$,cm$,da$,dr$,pr$,z$ altered. 
Only used when booting the'BBS. 

? te 


^jpTOl309 

.Load£andj;run "p.nu".(new user), 
dr f dv%,tz,dv%(J),a$,an$,c$,cm$,daS,dr$,pr$,uu$,z$ 
a iter ecu.Ms ^ 


4 GOTO1310 - s 


KvSZ&kU _ 




NOTES 


FUNCTION: 
NOTES . : 

FUNCTION: 
NOTES : 


FUNCTION: 

FUNCTION: 

FUNCTION: 


INPUT ; 
NOTES 

FUNCTION: 
NOTES : 


Load and run either "p.f" (files) or "p.n" (news), 
depending on what was^entered into an?. 
if an$="N", "p.n" (news) will be run. Anything else 
will run "p.f" (files). . ..... . 

■< GOTO 131-3 

■Load and run "p.em" (Enter email subsystem). 

Will check access" first. 

GOTO.l 32C - 

Load and run ."p.u/d" (Enter u’/d ,subsystem) . 

Will, check access, light bar?’flag, and prime time . - 
first. 

G0T01336 

Load and run "p.lo" (logon/off). 

GOTO 13-10 

Load and run"p.s" (Enter sub-boards). 

G0T01351 

Read "menu 1" file £rom.;the "system" disk, then read 
"menu 8", (Commands available at all prompts), Then 
return to "Main: ". " ' 'C* ' ,r 

lc=number of menu." ~ -■■■ 

dr,dv%,dv%(0),lp,rc,s,sh,a$,an$,b$,dr$,z$ altered, 
r : i - , G0T01694 

Logoff sequence after-i^O"-or ; M Q H twas entered. 

Jumping here will query user for feedback, and read 
"sys.end" file.GOTOl704FUNCTION: Logoff sequence 
without query. 



( 


^•■'•^; , vz^45v^xsTEM^ooTniE'S“~~ZT“v:. ■' ■ 

GOTO1710 ' . 

FUNCTION: Reset system after ca11 is updated. 

NOTES :.Does not update stats, usually jumped to if a false 
connection occurs. (No logon). 

GOTO1800 

FUNCTION: Entry point to the main program once logon has been 
established. 




i. 



NOTES : Check for mail, news, then 

G0T01812 

FUNCTION: Entry point to the "Main: 

GOTOISOO 

FUNCTION: Run a pfile from the "Main 
NOTES : Will return to "Main: " if 
disk. 

' - GOTO2000 

FUNCTION: Error trapping routine. ML 
any BASIC error is detects* 


go to the Main prompt. 

/ prompt™ : ' y 

: " prompt. - r 

the pfile is not on the 



routine will jump here if 



fNUi ~ b : will print error, line number, and pfile to pri 
on-line, and to "etc.errlog" file on etcetera d 
:■■■ G0T09999 - --- . - ■ 

FUNCTION: Reset routine to use in direct mode If .run/stop 
restore.is used for any reason. - 
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5. C-NET MACHINE LANGUAGE ROUTINES AND VARIABLES 

It is advisable not to change the ml portion of C-Net, since 
nearly all the memory is used, and this can cause many problems, 
sometimes impossible to trace. However, the ml routines can be 
used by the BASIC portion of the program if you have the knowledge 
of how to use them. This chapter is for that purpose. To detail 
the routines that are normally used, and show you how to implement 
them when needed. 


5.1 MEMORY MAP• •. ^',. v ..'1 

The ML portion of C-Net resides between $A000 and $D000 in memory. | 
. ; Here is a map of the area: ■; . - ‘ - '% 

$9E00-$9EFF 256 byte, transmit buffer! a 

$9F00-$9FFF 256 byte“recelve;bu££er* • ~ ’ " « 

$AOOO-$AFFF routines to control basic text, and the constant 3 
date-time-I/O buffers. 

$BGGQ-$B0FF output character lookup table for ASCII and . , 
special character translation during output 




HSl! 


mm 


$B100-$B1FF input character lookup table for ASCII and 

special character translation during input. ; 

$B200-$B2FF screen character lookup table, used 'to storS * 

characters on the screen whose codes change from normal •> 
Commodore character, set codes. - " I 

$B300 -$BFFF special functions ML coding, (on-line user data 
editing, 1ightbar control) 



mm 

l X? -ri a,' 


outputrroutines 

. $CC00-SCFFF jump tables and entry locations for all sys ' ^ 

commands from the' main program. These call other ' 


routines at lower locations. 


*"“«', *■vr'C' 


m 


5.2 C-NET "SYS *s' 




‘ , 5 


t m 


3YS51968 : Set up I/O windows. 

SY352152 : Read disk file. (Unabortable) 

.SETUP ' : Open file #2 ; - _ . 

SYS52204 : Get character from modem. 

^RESULTS : peek(780)=ASCII of character. 

SYS5223G : Get a character to an$ 

SYS52238 : Compare date in an? to ld$ (last date). 

SETUP : -an$=ll digit, date string to compare 
RESULTS : peek(254)=0 if not "new". 

SYS52395 : Enable error trapping routine. 

SYS52470 : Display top screen #1. (Caller on-line) 
SYS52488 : Display bottom screen. 

3YS52544 : Beep, (chat page) 

SYS52564: Terminal mode for C-terra 

SYS52572 : check for device presents .. ” 

SETUP :. open command channel,.poke42480,device number 
RESULTS : peek(144)=status 0=ok 

SYS52587 : Save pointers'to var iables'. 

SYS52605 Restore pointers to variables. ■ 

SYS52720 : Load a proto file. 

SETUP : Open file #6 

SYS52736 : Set up IRQ wedge. " - 
SYS52760 : Set up screen handler. 

SYS52896 : Input text from keyboard, (modem) 
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RESULTS .... : ■■an$ = -text entered" 

SYS52904 : Output text to screen, (modem) 

SETUP : : a$="text" 

SY352907 : Convert 11 digit numeric date to full text. 

SETUP : an$=ll digit date string 

RESULTS : an$=text representation of string - 
SYS53013 : Read disk directory, 

SETUP : Open file'#2 

SYS53021 : Display top screen 82. (Idle) 

SYS53037 : Disable error-trapping routine. - -y--- - 

SYS53032 : Read file from disk until EOF. Clear screen first. 

SETUP. : Open file #2 .• - i 

- ■. SYS53085 : Read file from disk until EOF. Do'nt clear screen 

■ • -.first' •: : :: : 1: .. . ?" : . 

SETUP : • : open, file #2 „ ■l/d:? vVvLfv --v V 

• SYS53116 : Enter chat mode. / . : ■ ^ . 

SYS53138 : Input a password (Prints X's). 

RESULTS : an$="password” 

. SYS53154 : Input line ;.of text, from disk . =i : .1: r 

SETUP- Open file #2 r ' a . - 

RESULTS 'i : a$ = "text” ^ I-;- , V-:-; ■ • 

SYS53224 : Load a p-file into memory. 

SETUP : Open file #2 . .. . 

SYS65481: define an output channel, (used in setup only 
along with 65490 to check status of devices on-line) 
SYS65484 : Un-CMD output, so PRINT.does not go to modem, but 




•0 zr.** w«y r- j aa % ! .... \2f 


SYS6549Q Output a character. 


• , - 

zmmsMmmm 



??£:* r'V . i-r- 


ACCESSIBLE MEMORY LOCATIONS' FORvPEEKS AND “POKES: 

142 : temporary use by copier. 

144 : st (status word variable). 

152 : number of current open files. 

186 : current device number- used in C-Net in configuration 

and setup only. ; 

254 temporary use. set to 1 if result of,a date compare 

(sys52238) is greater (new bulletins, etc). 

512 • . : temporary use- punter variable. 

603 . : last file number opened. 

650 : flag- which keys will repeat? 128 = all keys. 64 = no 

. keys 1 -0 .;= cursor keys, spacebar,,and delete key only. 

661 : low.byte for bit timing-, (modem). 

662 : high byte for bit timing- (modern). ; 

665 : low byte- time required to send bit. 

666 : high byte- time required to send bit. 

667 end of modem receive buffer. 

668 : start of modem receive buffer. 

780 : (accumulator)- after:sys52204, this will hold the ASCII 

value of the character from the get. 

781 : (x register)- upon exiting the editor, this location.can 

contain the following values: 0 = .A was hit (Abort). 

1 •, =;. ♦ S was hit (Save). - 2 = .B was hit (Border). 

: 3 = .H was hit (Help). 4 = Chat mode was entered 

782 : (y register). - 

783 : (p (status) register). 

828 - : minutes allowed for this call- (255=infinite). 

During setup (boot) this location holds device number 
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829 

830 

831 

832 

833 
836 
1007 
1016 
1018 
1019 
1022 
1264 
1274 
1278 
1289 
1294 
1299 
2040 
2043 
40992 

■; 41328 
-41220 
"42241 
: 42402 

42403 

42404 

42405 
42480 
46569 
47802 

:479'0 3 'il 
50641 

" 52136 
52137 
153242 
53246, 

; 53248 :, 

53249 

j.' 

53250 

53251 

53252 

53253 

53254 
53258 
53262 
5657? 
56579' 


that program was booted from. - 
calls per day allowed- (0=infinite). 
idle time allowed; 
downloads allowed- (0=infinite). 

number of feedbacks that have been left this call, 
number of downloads made this call, 
temporary use. 

MCI access flag in editor- 0=yes l^no. 
number of lines minus 1 used in the editor. 

temporary editor use - _ ..... .......... 

temporary editor use. 

nuirher of lines minus 1 allowed in the editor, 
screen checkmark for "Sys M - 160=off 250=on.^ 

, left side screen checkmark for "Loc"- 160=off 250=on. 

; right side screen checkmark for "Loc"--160=off 250=on. 
screen'checkmark for "New”- 160=off 250=or. . 
screen checkmark for "Prt"- 160=off 250=on. 
screen checkmark for "U/D M - 150=off 250=on. 
temporary editor use. 

file type for upload in term. l="p" 2="s" ■ 

table for MCI variables. '. 

stable for light bar positions, 
controls speed of cursor spin, 
number of file for ml fileread routine. 

1- __ 1. • / A X. <>. ^ T v • ■ ■■ri-i-r " • ■ -V ■ «• ’ 




V- 










jjdayrof wee k {1 - 7TfT 
month (1-12) 

? elate {1-311) .. h 

.last two digits of year. .... .... 

device number for sys52572. , „ . • , 

ascii for !, X” for password input. 
flashing chat page- 0-off l=on. 
clock at idle - screen- 0=off l=on. 
in punter only, should have.either 208 or 240 
depending on modem xor value. ~~ 

dow byte- RS-232 baud rate, timer constant. 

.high byte- RS-232 baud rate timer constant.' 
lines' to jump for MCI commands. V 

flag- will MCI commands execute on read? 0=yes l=no 
flag- local mode ~ 0 = o££ l--on. 

flag- upper/lowercase In Input routine - 0-upper and 
lowercase allowed l=uppercase only. 

: flag- can graphics characters be entered? 0=yes 10-no 
: time remaining (same as asc(tr$)). 

^maximum, characters-allowed for input routine. 

: flag- word wrap for- input routine. 

: flag- was chat requested? - 2-yes. 

: modem xor value (16 or 0). 

: f.lag- C/G mode - 0=of £ l=on. 

\ RS-232 data^port register b. 

: RS-232 data direction register b. 









Field Variable 


■ na$; L/,/ ; The User's Handle 

. P w $ •; ../if The User 1 s Pass word /.hy;. /v/../ ■ . /; 

,ff$ . . .First Name (Real Name) ' . - _ - - r ' 

s ••! 1 $..•*•• ••' ""Last Name* (Real Name) ~ ' *' ' 

P^^ Area Code/Phone Number 

ld $ Requested Last Date 

ac% . Access.. Group # /.\- .:...vc 

ct% Number of Calls Made Today 

tc * - Total Calls, to the.System 

co% computer Type (Number) 

Lins Length/ Number of Columns 
ui Upper/Lower Case Flag 

' If V' 1 ' =LineFeeds Flag ' ; - 

em Expert Mode Flag 

dc - - , ^ Total Downloads Made —C- 
|Si '&-:-*Total, Uploads Made 
Slit | ’/Total-Blocks Downloaded - 
BHHS Total Blocks' ' 


u.alpha: record length: 30 (1 record-two fields oer user) 
The records in this file consist of two fields each the Hrt 

' • ^ 1 the°s‘r ln a n9 h^ he US6rS har * dls ' (al1 in alphabetical ortf-r) 

; d rhe second, his ID number. This file is used to do ' 

a .poabetical handle searches only, and uses a binary sort uhirh 

rtSr fa3 ^ and e f fiCient - The onl y drawback to this is'that - 
.it. takes quite a while, depending on the size of the fiie to '^ 

the^a^t that c J aRge , * ‘'-andle on the system. This is due to 
do'w*' % f - n ® S t0 be re-structured from that handle 

do*. ea„h time a handle is deleted, or added to it If the 

that n uD W o^d an fo * «™Ple, it must shift all handles liter 

added U or°deleted? ne dSp8nding ° R whether that user was “ 


etc.data: record length: 31 
Record? 1S ^ata^ miscellaneous data for the system. 

2 _ii I i^L T ? tal celis to the system. Updated every logoff. 
' l l J° UT b ^ tes=da t a for access groups 0-9 ■ 

Byte #1: minutes per call 
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'6. SYSTEM FILE INFORMATION 
6.1 RELATIVE FILE FORMATS: 

u.config: record length: 254 (1 record-23 fields per user) 
Each record contains all of the information for a single 
user,and is divided into 23 fields, each field seperated by a 
-? r ^ a9e a e ^ tn ‘ ThlS t3ble contains a description of eacl/ 
onto^th/system/ 118016 ^ iS as£sl 9 ned t0 “ " he " = >»« logs 
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12 

13 

14 

15 

16 


17 

18 

19 

20 


Byte #2: calls per day ' 

Byte §3: idle time 

Byte #4: downloads per call 

Bytes$5-xx: access group name. 

(ur) Total users on "u.config" file, including 
deleted accounts. Updated whenever a new user 
logs on. 

j sigit numeric string, designating which 
subboards are open/closed. 0=open l=closed 

33 d _ i .s it n umer ic_ string, designating which 
UD boards are open/closed. 0=open l=clos*d 
Unused. 

(uh) Total users on "u.alpha" file,"(does not . 
include deleted accounts). Updated whenever a 
new user logs on,, or ;a user ;>Is deleted, 

Handle of-last caller to the system. 
^PP$^ Pas sword for password subboard. 

of boo‘-Up, or last logoff 


wnicheve; 
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Date/time 
was last. 

(pl%,p2%,p3%) Prime time data. First value is 
number of minutes per call,.(0=no prime time), 
second is starting hour (0-23) of prime time, 
third is ending hour of prime time. 

(f1$(x)) Default flag strings for access groups. 


B 


etc.stats: record length: 9 

The^e.stats fiie contains-Information about the current status 
^. u J e f f° arid : s "^ h information as totai number of posts, and 

^al files in the U/Ds are held. Also many other useful bits of 

v l0n are ln " here * Th e:Information In this'file Is held in 

;a?ray is : integer array for the^ 

than inteapr SOroe -° f - the lnformati '<>n may need a greater-range“ 
than integer variances can handle. 

It?i n aS e thA in table P ertain to theTsubscript ^He^!ior 

B A s tJ pn 0 on the screen that they are put on the; ; 


iHS 
- && 


■ r; b.a.r./;/-- 
I stats • 

!Feedback-' 

!Sysop Mail 
’User Mail 
! Posts... 

IResponses 
{Uploads 
{Downloads 
!New User 3 
' I Calls/Log 
{Time Used 
!Time Idle 
! +-■——— 


Last 

to? , 

System 

Current 

Call 

Total 

Total 

.Total 

'1 : : 

- 12 

I .*'-"'"-23-'5; 

/■: 30 

2 

i3 : 

.24 

,/ 31- ’ 

3 

14 -■ 

25 

' 32 

4 

15 

26: 

33 

5 M 

. IS 

27 

34 

6 

17 ‘ 

28 

35 

7 

18 / 


36 

8 ' 

19 

29 



- -20 

1 Log % 

Tot 

10 

21 

JU: 


11 

22 

»I: 





-+— 


tTxllL 31 an l 38 are not dis Pi3yed on the chart, but are used 
mw 6 the P ercenta 3 es of time and idle since the system 
started. They contain total number of minutes used and tot^i 
number of minutes idle since the system was first ^"igured! 
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YSTEM FILE INFORMATION 


SEQUENTIAL FILE FORMAT, 
Configuration files: 


lins configuration data, for the BBS.. 

.sk upon configurafcion A • and never cha 
reconfig" to change data. 

Device and drive numbers for your ”s 
disks, i through 6. 

The two letter system identifier,4;4 
Modem type!;- c.-tbfc'c '■ \v:'vt 
Number of.credit points to'start for 
user asseSMBRg&st -jMsgaa xm 


a new 


sys.U/D 

This file contains data for your 
Entry #1 contains the 'number of 
configured for. Then the entries 
the following: 

Entry #1: UD board name 4 - 

Entry #2: Access code 
•Entry.. #3: Subop ID number 
Entry #4 .’ Device number for this 
Entry 15: Drive.number'for4this 

Directory files; « . 4 : - v i 


dir.sub xx (xx=number of subboard 
Contains information about bulletins o 
suddostu - • v:. • 

Entry #1 contains the number of bullet 
subboard. Then the entries, in.groups 
following: 

Entry #1: Title of bulletin 
Entry #2: Handle of user who posted it 
Entry S3: 22 digit string, first 11 di 
bulletin, second 11 digits= i 
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response. 

Entry #4: ID number of user who posted the bulletin 
Entry #5: Number of responses 


dir.u/d xx (xx^nurr.ber of UD board) 

Contains information about files on each individual UD board, 
Entry #1 contains the number of files on the respective UD 
board. Then the entries, in groups of six, consist of the 
following: 


Entry #1How many blocks .the file .is ... 

■ Entry *2: Handle and ID number of uploader 
Entry #3: First 11 digits, date of upload. Bytes #12- 
•• .-filename and f i letype :'b_ ; i ?i 

Entry #4: Description of the file : 

Entry.-.#5:, Computer type , (number) < , ' 

Entry • 16: Nuuber "'of '•timesdownloade 

dn-main 



Directory for system news files. 

Entry # 1. contains it he "number of f lies’,- on the d i rector 

entries, in groups of three, consist of the following 

Entry #1: Title 

Entry #2: Date of news 

Entry #3: Access’ coded-title 


Directories for system P and G files. 

Entry. #1 contains the number of files on the directory 
entries, in groups of three, consist of the following: 
,f Entry #1: Title (preceded by a K d- H if a sub-directory 
' Entry #2: Source 
Entry #3: Access code 


Then :the 
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7. C-NET PROGRAMMING TIPS AND HINTS: ~ _ ' ' : 

This section will give you some ideabyarid heat tricks .touseto, 
help'your p-files run better, and faster.First, we would like to 
document and correct some of the most common mistakes found in 
programming p-files. - 


1> The infamous "Help! The system won't hang up!" trick...As 
mentioned in chapter two, one of the most common problems is not 
checking in the proper places for carrier loss/time up. If you 
simply remember that the system is sending carriage returns if 
there is no carrier, you can make sure that the program gets back 
to somewhere that.will catch this, and log the "user" off. One 
thing that I do is try at most prompts to make a carriage return 
act just like the user typed a "Q" to main This is usually ok to 
do, unless you want.a carriage return to mean something else. The 
results: it will send him back the the "main" prompt, which has 
the check for time up, and log him off;;ho/problem! 1 

2> It -must- be garbage day! The computer is collecting 
againSOne of the worst things about the Commodore 64 is the fact 
that it has to take a ten second break every so often to perform 
a 9 a tbage collection. Argh! We.all know how that isi One way to 
; at vleast make .these occurances happen less often. Is to not 
concatenate your strings as often..(This means add ; them together, 
if you didn't know). A nifty trick I like to use takes advantage 
of the MCI variables. For example, instead of: 

10 a$="You now have"+str$(cr)+" credits, and" 

20 a$=a$+str$(asc(tr$) )+" minutes left.”:sys'o 
I would do something like this: 

10 h$=str$(cr):an$=str$(asc(tr$)) 

20 a$=."You now haveVvS credits. and\v7 


> avoids concatenating strings, and speeds things up quite a 

' . , - - _ 

^3> Although we.have said it before, it's worth repeating. 
PLEASE check. the variables you.tafe.liising.?dne.~ of : tfie most elusive 
bugs that we had reported with version 12 is that people were, 
getting a redim problem whenever they tfled.to edit a bulletin in 
sub-boardsv It turned .out that one;, of the popular p-files" 
used theyarray sli$ ( ) y" which is used;in subs for the edit routine? 
Thus, problems! /Some- of ..these may show up in really a wf u 1 wa y s, - • 
like deleting accounts, passwords, etc. , so BE . CAREFUL! - -‘/V;'. 

4> Use the sys52605 to clear out all the added 'variables as 
much as you can.. This keeps the system from running low or even 
. out. of memory, which can cause a crash."Another neat trick you ? 
-can do is clear out all the-system string arrays that you havt?' -' 
used, again clearing memory when-t:hetpfile-;is: done.: Example: if 
. use tt$ () array to store, a list of something in your 
p-file, when you exit, do,something like this: - : , , ..I 

. fori=0tol00 :.tt$ C i) = ;next .. 

This will- cleat ityouty arid; ftee?u^;t6?8k : :!rbf "memory that ■ normal!y 
would not be cleared until the editorywas;‘used again. 

, c 5> A nifty trick to make sure you remembered to do all that 

stuff, and something I do now with almost all of my p-files is 
use a line like this: 900■forx=0tol00:tt$(i)="":next:sys52605: 

t - ; on " (tr $<"ctrlr-a" )gotol080 :gosubl 018 :gotol 812 ; ' . - 

Then instead of referring to line 1080 AND 1812 in the p-file 
you can just use 900, and it will do all the housework for you 
upon exit. 
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%n*ot'her .trick 71s to put .ail your .common subroutines at 
the beginning ° f the p-file, starting at line 2, and make line 1 
' 9 ?^° J . th ® actual start of your program. This also speeds up 
ca.ls to the subroutines, since it does not have to look as far 
into the program for them. And by all means, use the subroutines 
in che main CNet program whenever you can. Study them, and use 
them. ; : ' 

7> Try not to "hard-wire" the p-files to your system. We get 
many p-Oles uploaded that start with something like: 

open2,8,2,"sys.instructions",etc. 

Many sysops do not use those particular devices like you do' And 
although it may seem easy to change for you, many do not even 
know how to change it, so use the regular routines for it 
dr-1:a$="sys.instructions":gosublOll will do the same thing, and 
use less space, and run on ALL systems with no problem 
8> Whenever you want to seperate text with a horizontal line, 
use MCI variable j. (^k$). it works fine, and saves memory. If 
you want a shorter line, just use left$(ak$,12) for a 12- 
character line, etc. 

9> I see many lines of code that end with something like 
gosubxxx:return. This can always be replaced with gctoxxx (The 
return from this subroutine call will act as the "final" return 
here, without hurting the stack! - ' 

, Ins ^ ea( 5 of using "ifaoothen... ", use "i fa then" .it will 
speed .things a bit, and perform,.the same thing. Likewise, any 
^comparison or assignment to 0 can be changed to a period. (a=. or 

a=0 or ifa<0) ; This also speeds .things up a blt 4 
r-n ;.li> Get to know how to use boolean logic. (OneTof myX 7 ’ 5 : 

* favorite Dastimes ) . ' Y A n ran fll na*-a maM.t vit £ it .i.'l'I'■ — 'V ■ aas : ; <' 


a=l-a' X ■; ■ t \ X 

'- 111 Insteaa °£: 10 ifa*Othena$*"zero" -20 ifa=lthena$= H one" * 
.- X use: 10 a$=mid$( ,, zeroone ,, ,a*4+i;^)' !:Try it! OXS® 

: On input commands, (G0SU3 1005,1006 ), if you are' ^ X ; ' ' 

^numeric input, always use 1006 rather than 1005. Since 
1005 allows lower case, the typical board crasher will try to 

seething like le99 to see if the p-file .can handle it! - 
Also make sure and use the abs() and into functions if . 
•necessary. - a.. 

13>.;,C-Net!s input and GET routines translate' certain •" 
22*1?!?*? t0 a ^°i d fc D0S problems. They are. documented here, so 
y f vu 111 y ' no *' what t0 check for if you are checking input for any 
of them, fro®. to v™ reverse capital , . / 

E 

w'V 'f 'f ~ 

H ISP - ' 

J 

x k ; x ... . . ..o'-:, . 

L" 

■ , , ,, —--whese characters and 

automatically convert them before sending. This is the reason vou 
see many reverse »K"’s instead o£ chrSC13)'s In the teX SX 
save memory and time in programming/ L ^ 


* 

■> 


(CR) 


to ■ v 

key -s 

? : chr$(133) 

fl 

chr${134) 

f 3 

chr$(135) 

f 5 ; 

‘ 'chr$(136) 

f7‘. 

_ , chr $ (13.7 ) 

. :f2 

chr$(138) 

£4 

chr$(139) 

f 6 

chr$(14G) 

£8 

wi j. 1 also rec 

ognize 








